﻿Public Class InsertExcepcion
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Falla en insert")
        Me.codigo = Utils.Enumeradores.Excepeciones.FalloInsert
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Falla en insert"
        Me.innerException2 = innerException
    End Sub
End Class

Public Class DeleteExcepcion
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Falla en delete")
        Me.codigo = Utils.Enumeradores.Excepeciones.FalloDelete
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Falla en delete"
        Me.innerException2 = innerException
    End Sub
End Class

Public Class SearchExcepcion
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Falla en select")
        Me.codigo = Utils.Enumeradores.Excepeciones.FalloSearch
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Falla en select"
        Me.innerException2 = innerException
    End Sub
End Class


Public Class UpdateExcepcion
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Falla en update")
        Me.codigo = Utils.Enumeradores.Excepeciones.FalloUpdate
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Falla en update"
        Me.innerException2 = innerException
    End Sub
End Class